home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tools / lernen / dicionar / source / atari2as.mod < prev    next >
Encoding:
Text File  |  1995-11-25  |  6.6 KB  |  182 lines
  1.  IMPLEMENTATION MODULE Atari2Ascii;
  2. (*                                 ASCII Tabelle
  3.  
  4.     | 0  1  2  3  4  5  6  7  8  9      | 0  1  2  3  4  5  6  7  8  9
  5. ----------------------------------  ----------------------------------
  6.   0 |    ⇧  ⇩  ⇨  ⇦  ❎  ╱  ◆  ✓ TAB 130 | é  â  ä  à  å  ç  ê  ë  è  ï
  7.  10 | LF ♪     CR     ⓪  ①  ②  ③  140 | î  ì  Ä  Å  É  æ  Æ  ô  ö  ò
  8.  20 | ④  ⑤  ⑥  ⑦  ⑧  ⑨  ə        150 | û  ù  ÿ  Ö  Ü  ¢  £  ¥  ß  ƒ
  9.  30 |    SPC !  "  #  $  %  &  '  160 | á  í  ó  ú  ñ  Ñ  ª  º  ¿  ⌐
  10.  40 | (  )  *  +  ,  -  .  /  0  1  170 | ¬  ½  ¼  ¡  «  »  ã  õ  Ø  ø
  11.  50 | 2  3  4  5  6  7  8  9  :  ;  180 | œ  Œ  À  Ã  Õ  ¨  ´  †  ¶  ©
  12.  60 | <  =  >  ?  @  A  B  C  D  E  190 | ®  ™  ij  IJ  א  ב  ג  ד  ה  ו
  13.  70 | F  G  H  I  J  K  L  M  N  O  200 | ז  ח  ט  י  כ  ל  מ  נ  ס  ע
  14.  80 | P  Q  R  S  T  U  V  W  X  Y  210 | פ  צ  ק  ר  ש  ת  ן  ך  ם  ף
  15.  90 | Z  [  \  ]  ^  _  `  a  b  c  220 | ץ  §  ∧  ∞  α  β  Γ  π  Σ  σ
  16. 100 | d  e  f  g  h  i  j  k  l  m  230 | µ  τ  Φ  Θ  Ω  δ  ∮  ϕ  ∈  ∩
  17. 110 | n  o  p  q  r  s  t  u  v  w  240 | ≡  ±  ≥  ≤  ⌠  ⌡  ÷  ≈  °  ∙
  18. 120 | x  y  z  {  |  }  ~    Ç  ü  250 | ·  √  ⁿ  ²  ³  ¯
  19. ----------------------------------- ----------------------------------
  20.     | 0  1  2  3  4  5  6  7  8  9        0  1  2  3  4  5   6  7  8  9
  21. *)
  22.  
  23. PROCEDURE CorkConvert( VAR Buffer : ARRAY OF CHAR);
  24. VAR i: INTEGER;
  25. BEGIN
  26.    i:=0;
  27.    WHILE ((Buffer[i] # 0C) AND (i< HIGH(Buffer))) DO
  28.    IF (ORD(Buffer[i])>127)  THEN
  29.    CASE ORD(Buffer[i]) OF
  30.      128 : Buffer [i] :="C"  (*Ç*)
  31.      |129 : Buffer [i] :="u" (*ü*)
  32.      |130 : Buffer [i] :="e" (*é*)
  33.      |131 : Buffer [i] :="a" (*â*)
  34.      |132 : Buffer [i] :="a" (*ä*)
  35.      |133 : Buffer [i] :="a" (*à*)
  36.      |134 : Buffer [i] :="a" (*å*)
  37.      |135 : Buffer [i] :="c" (*ç*)
  38.      |136 : Buffer [i] :="e" (*ê*)
  39.      |137 : Buffer [i] :="e" (*ë*)
  40.      |138 : Buffer [i] :="e" (*è*)
  41.      |139 : Buffer [i] :="i" (*ï*)
  42.      |140 : Buffer [i] :="i" (*î*)
  43.      |141 : Buffer [i] :="i" (*ì*)
  44.      |142 : Buffer [i] :="A" (*Ä*)
  45.      |143 : Buffer [i] :="A" (*Å*)
  46.      |144 : Buffer [i] :="E" (*É*)
  47.      |145 : Buffer [i] :="a" (*æ*) (* ae *)
  48.      |146 : Buffer [i] :="A" (*Æ*) (* AE *)
  49.      |147 : Buffer [i] :="o" (*ô*)
  50.      |148 : Buffer [i] :="o" (*ö*)
  51.      |149 : Buffer [i] :="o" (*ò*)
  52.      |150 : Buffer [i] :="u" (*û*)
  53.      |151 : Buffer [i] :="u" (*ù*)
  54.      |152 : Buffer [i] :="y" (*ÿ*)
  55.      |153 : Buffer [i] :="o" (*Ö*)
  56.      |154 : Buffer [i] :="U" (*Ü*)
  57.      |155 : Buffer [i] :="U" (*¢*)
  58.      |156 : Buffer [i] :="L" (*£*)
  59.      |157 : Buffer [i] :="y" (*¥*)
  60.      |158 : Buffer [i] :="s" (*ß*) (* ss *)
  61.      |159 : Buffer [i] :="a" (*ƒ*)
  62.      |160 : Buffer [i] :="a" (*á*)
  63.      |161 : Buffer [i] :="i" (*í*)
  64.      |162 : Buffer [i] :="o" (*ó*)
  65.      |163 : Buffer [i] :="u" (*ú*)
  66.      |164 : Buffer [i] :="n" (*ñ*)
  67.      |165 : Buffer [i] :="N" (*Ñ*)
  68.      |166 : Buffer [i] :="U" (*ª*)
  69.      |167 : Buffer [i] :="o" (*º*)
  70.      |168 : Buffer [i] :="?" (*¿*)
  71.      |169 : Buffer [i] :="o" (*⌐*)
  72.      |170 : Buffer [i] :="o" (*¬*)
  73.      |171 : Buffer [i] :="D" (*½*)
  74.      |172 : Buffer [i] :="a" (*¼*)
  75.      |173 : Buffer [i] :="i" (*¡*)
  76.      |174 : Buffer [i] :="I" (*«*)
  77.      |175 : Buffer [i] :="I" (*»*)
  78.      |176 : Buffer [i] :="a" (*ã*)
  79.      |177 : Buffer [i] :="o" (*õ*)
  80.      |178 : Buffer [i] :="O" (*Ø*)
  81.      |179 : Buffer [i] :="o" (*ø*)
  82.      |180 : Buffer [i] :="o" (*œ*)  (* oe *)
  83.      |181 : Buffer [i] :="O" (*Œ*)  (* OE *)
  84.      |182 : Buffer [i] :="A" (*À*)
  85.      |183 : Buffer [i] :="A" (*Ã*)
  86.      |184 : Buffer [i] :="O" (*Õ*)
  87.      |185 : Buffer [i] :="I" (*¨*)
  88.      |186 : Buffer [i] :="A" (*´*)
  89.      |187 : Buffer [i] :="E" (*†*)
  90.      |188 : Buffer [i] :="U" (*¶*)
  91.      |189 : Buffer [i] :="y" (*©*)
  92.      |190 : Buffer [i] :="b" (*®*)  (* ?? *)
  93.      |191 : Buffer [i] :="B" (*™*)  (* ?? *)
  94.      |192 : Buffer [i] :="i" (*ij*)  (* ij *)
  95.      |193 : Buffer [i] :="I" (*IJ*)  (* IJ *)
  96.      |194 : Buffer [i] :="C" (*א*)
  97.      |195 : Buffer [i] :="C" (*ב*)
  98.      |196 : Buffer [i] :="D" (*ג*)
  99.      |197 : Buffer [i] :="E" (*ד*)
  100.      |198 : Buffer [i] :="E" (*ה*)
  101.      |199 : Buffer [i] :="G" (*ו*)
  102.      |200 : Buffer [i] :="L" (*ז*)
  103.      |201 : Buffer [i] :="L" (*ח*)
  104.      |202 : Buffer [i] :="L" (*ח*)
  105.      |203 : Buffer [i] :="N" (*י*)
  106.      |204 : Buffer [i] :="N" (*כ*)
  107.      |205 : Buffer [i] :="N" (*ל*)
  108.      |206 : Buffer [i] :="O" (*מ*)
  109.      |207 : Buffer [i] :="R" (*נ*)
  110.      |208 : Buffer [i] :="R" (*ס*)
  111.      |209 : Buffer [i] :="S" (*ע*)
  112.      |210 : Buffer [i] :="S" (*פ*)
  113.      |211 : Buffer [i] :="S" (*צ*)
  114.      |212 : Buffer [i] :="T" (*ק*)
  115.      |213 : Buffer [i] :="T" (*ר*)
  116.      |214 : Buffer [i] :="U" (*ש*)
  117.      |215 : Buffer [i] :="U" (*ת*)
  118.      |216 : Buffer [i] :="I" (*ן*)
  119.      |217 : Buffer [i] :="Z" (*ך*)
  120.      |218 : Buffer [i] :="Z" (*ם*)
  121.      |219 : Buffer [i] :="Z" (*ף*)
  122.      |220 : Buffer [i] :="A" (*ץ*)
  123.      |221 : Buffer [i] :="§" (*§*)
  124.      |222 : Buffer [i] :="A" (*∧*)
  125.      |223 : Buffer [i] :="d" (*∞*)  (* dt *)
  126.      |224 : Buffer [i] :="a" (*α*)
  127.      |225 : Buffer [i] :="s" (*β*)  (* ss *)
  128.      |226 : Buffer [i] :="c" (*Γ*)
  129.      |227 : Buffer [i] :="c" (*π*)
  130.      |228 : Buffer [i] :="d" (*Σ*)
  131.      |229 : Buffer [i] :="e" (*σ*)
  132.      |230 : Buffer [i] :="e" (*µ*)
  133.      |231 : Buffer [i] :="g" (*τ*)
  134.      |232 : Buffer [i] :="i" (*Φ*)
  135.      |233 : Buffer [i] :="l" (*Θ*)
  136.      |234 : Buffer [i] :="l" (*Ω*)
  137.      |235 : Buffer [i] :="n" (*δ*)
  138.      |236 : Buffer [i] :="n" (*∮*)
  139.      |237 : Buffer [i] :="n" (*ϕ*)
  140.      |238 : Buffer [i] :="o" (*∈*)
  141.      |239 : Buffer [i] :="r" (*∩*)
  142.      |240 : Buffer [i] :="r" (*≡*)
  143.      |241 : Buffer [i] :="s" (*±*)
  144.      |242 : Buffer [i] :="s" (*≥*)
  145.      |243 : Buffer [i] :="s" (*≤*)
  146.      |244 : Buffer [i] :="t" (*⌠*)
  147.      |245 : Buffer [i] :="t" (*⌡*)
  148.      |246 : Buffer [i] :="u" (*÷*)
  149.      |247 : Buffer [i] :="u" (*≈*)
  150.      |248 : Buffer [i] :="Y" (*°*)
  151.      |249 : Buffer [i] :="z" (*∙*)
  152.      |250 : Buffer [i] :="z" (*·*)
  153.      |251 : Buffer [i] :="z" (*√*)
  154.      |252 : Buffer [i] :="A" (*ⁿ*)
  155.      |253 : Buffer [i] :="E" (*²*)
  156.      |254 : Buffer [i] :="E" (*³*)
  157.      |255 : Buffer [i] :="I" (*¯*)
  158.    ELSE
  159.       HALT;(* Darf eigentlich nie passieren! *)  
  160.    END(*CASE*);
  161.    END(*IF*);   
  162.    i:=i+1;
  163.    END(*WHILE*);
  164.  (**)
  165. END CorkConvert;
  166.  
  167. PROCEDURE ErrConvert( VAR Buffer : ARRAY OF CHAR; Length : INTEGER):BOOLEAN;
  168. VAR i : INTEGER;
  169. BEGIN
  170.    IF (Length > HIGH(Buffer)) THEN
  171.        RETURN FALSE;
  172.    END(*IF*);
  173.    FOR i:=0 TO Length DO
  174.        IF ((ORD(Buffer[i]) > 15) AND (ORD(Buffer[i]) < 26)) THEN
  175.           Buffer[i]:= CHR(ORD(Buffer[i])+32)
  176.        END(*IF*);
  177.    END(*FOR*);
  178.    RETURN TRUE
  179. END ErrConvert;
  180.  
  181. END Atari2Ascii.
  182.